home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / forms / demotod / demotod.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-06-09  |  6.0 KB  |  200 lines
  1. VERSION 2.00
  2. Begin Form DemoTOD 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Tip of the Day"
  6.    ClientHeight    =   2940
  7.    ClientLeft      =   1905
  8.    ClientTop       =   2505
  9.    ClientWidth     =   5625
  10.    ControlBox      =   0   'False
  11.    Height          =   3345
  12.    Left            =   1845
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   2940
  17.    ScaleWidth      =   5625
  18.    Top             =   2160
  19.    Width           =   5745
  20.    Begin SSFrame Frame3D1 
  21.       Font3D          =   0  'None
  22.       Height          =   2445
  23.       Left            =   105
  24.       TabIndex        =   4
  25.       Top             =   30
  26.       Width           =   4125
  27.       Begin TextBox Text_TOD 
  28.          BorderStyle     =   0  'None
  29.          FontBold        =   0   'False
  30.          FontItalic      =   0   'False
  31.          FontName        =   "MS Sans Serif"
  32.          FontSize        =   8.25
  33.          FontStrikethru  =   0   'False
  34.          FontUnderline   =   0   'False
  35.          Height          =   1365
  36.          Left            =   240
  37.          MultiLine       =   -1  'True
  38.          TabIndex        =   5
  39.          Text            =   "Tip of the Day Tip...."
  40.          Top             =   960
  41.          Width           =   3615
  42.       End
  43.       Begin Line Line2 
  44.          Index           =   1
  45.          X1              =   3990
  46.          X2              =   3990
  47.          Y1              =   210
  48.          Y2              =   2340
  49.       End
  50.       Begin Line Line2 
  51.          Index           =   0
  52.          X1              =   100
  53.          X2              =   100
  54.          Y1              =   210
  55.          Y2              =   2340
  56.       End
  57.       Begin Line Line1 
  58.          Index           =   1
  59.          X1              =   110
  60.          X2              =   4010
  61.          Y1              =   2330
  62.          Y2              =   2330
  63.       End
  64.       Begin Line Line1 
  65.          Index           =   0
  66.          X1              =   110
  67.          X2              =   4010
  68.          Y1              =   190
  69.          Y2              =   190
  70.       End
  71.       Begin Shape Shape2 
  72.          BackColor       =   &H00FFFFFF&
  73.          BackStyle       =   1  'Opaque
  74.          BorderColor     =   &H00FFFFFF&
  75.          Height          =   1365
  76.          Left            =   120
  77.          Top             =   960
  78.          Width           =   3885
  79.       End
  80.       Begin Label Label1 
  81.          Caption         =   "Did you know..."
  82.          Height          =   225
  83.          Left            =   720
  84.          TabIndex        =   6
  85.          Top             =   570
  86.          Width           =   1395
  87.       End
  88.       Begin Image Image1 
  89.          Height          =   570
  90.          Left            =   210
  91.          Picture         =   DEMOTOD.FRX:0000
  92.          Top             =   300
  93.          Width           =   420
  94.       End
  95.       Begin Shape Shape1 
  96.          BackStyle       =   1  'Opaque
  97.          BorderColor     =   &H00FFFFFF&
  98.          Height          =   765
  99.          Left            =   120
  100.          Top             =   210
  101.          Width           =   3885
  102.       End
  103.    End
  104.    Begin SSCheck Check3D_TOD 
  105.       Caption         =   "Show Tips at Startup"
  106.       Font3D          =   0  'None
  107.       Height          =   255
  108.       Left            =   105
  109.       TabIndex        =   3
  110.       Top             =   2580
  111.       Value           =   -1  'True
  112.       Width           =   2085
  113.    End
  114.    Begin CommandButton Command_TOD 
  115.       Caption         =   "&Help"
  116.       Height          =   315
  117.       Index           =   2
  118.       Left            =   4350
  119.       TabIndex        =   2
  120.       Top             =   990
  121.       Width           =   1170
  122.    End
  123.    Begin CommandButton Command_TOD 
  124.       Caption         =   "&Next"
  125.       Height          =   315
  126.       Index           =   1
  127.       Left            =   4350
  128.       TabIndex        =   1
  129.       Top             =   540
  130.       Width           =   1170
  131.    End
  132.    Begin CommandButton Command_TOD 
  133.       Caption         =   "OK"
  134.       Height          =   315
  135.       Index           =   0
  136.       Left            =   4365
  137.       TabIndex        =   0
  138.       Top             =   105
  139.       Width           =   1170
  140.    End
  141. Option Explicit
  142. Dim FileNum
  143. Dim TipPos&
  144. Dim TipLen%
  145. Dim Tip$
  146. Sub Command_TOD_Click (Index As Integer)
  147.     Select Case Index
  148.         Case 0
  149.             DemoApp.VBini.Section = "TOD"
  150.             DemoApp.VBini.Entry = "TipPos"
  151.             DemoApp.VBini.String = Str(TipPos&)
  152.             DemoApp.VBini.Refresh
  153.             DemoApp.VBini.Entry = "TipStart"
  154.             DemoApp.VBini.String = IIf(Check3D_TOD = True, " ", "No")
  155.             DemoApp.VBini.Refresh
  156.             Unload Me
  157.             Set DemoTOD = Nothing
  158.         Case 1
  159.             GetNextTip
  160.         Case 2
  161. '            dummy% = WinHelp(Me.hWnd, App.HelpFile, HELP_CONTEXT, HlpCntxtID&)
  162.      End Select
  163. End Sub
  164. Sub Form_Activate ()
  165.     If Me.Width = 1 Then
  166.         Unload Me
  167.         Set DemoTOD = Nothing
  168.     End If
  169. End Sub
  170. Sub Form_Load ()
  171. '    HlpCntxtID& = Tip_of_the_Day
  172.     Me.Move (Screen.Width - Me.Width) / 2, ((Screen.Height - Me.Height) / 2) + 200
  173.     DemoApp.VBini.FileName = App.Path + "\DemoApp.INI"
  174.     DemoApp.VBini.Section = "TOD"
  175.     DemoApp.VBini.Entry = "TipPos"
  176.     DemoApp.VBini.String = ""
  177.     DemoApp.VBini.Refresh
  178.     TipPos& = IIf(DemoApp.VBini.String = "", 1, Val(DemoApp.VBini.String))
  179.     On Error GoTo SeeYa
  180.     FileNum = FreeFile
  181.     Open App.Path & "\TOD.TIP" For Binary As FileNum
  182.     GetNextTip
  183.     Exit Sub
  184. SeeYa:
  185.     Me.Width = 1
  186.     Me.Height = 1
  187. End Sub
  188. Sub GetNextTip ()
  189.     If TipPos& >= LOF(FileNum) Then
  190.         TipPos& = 1
  191.     End If
  192.     Get FileNum, TipPos&, TipLen%
  193.     Text_TOD = Input$(TipLen%, FileNum)
  194.     TipPos& = Seek(FileNum)
  195.             
  196.     If TipPos& >= LOF(FileNum) Then
  197.         TipPos& = 1
  198.     End If
  199. End Sub
  200.